@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}} HE |||DDOS DOSDOS SYS }}}}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D,}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F-}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟.}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED COPYING---DN:4}# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 2.?}D2:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@} L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DUA}P DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}FINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}, &*  Lz+, 0 , 1 ~0 + Y,0!,0 ,L+ ,mm  v,"ǭE}0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}INSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG}L1(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ},A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}BE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1R} L ERROR- 128ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uT} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uEiͩkΩ͙kCop j`j {j`Hi͝Νh`V}L"UNEM:D"NURͩkΩ͙kCop j`j {j`Hi͝Νh`Pcd} AXLPB0NZ<( ((@@dH"(  X} +AdAUuA@'A @9A@K@@]@@7c( Y}}uAR@++(#++(#| ANTIC MONTHLY DISK SEPT. 1986 |++(# Z}( | Side 'A' |++(# @ -@A [} $ GG;@@,;@ ,;@@,;A,;@,;@@, "D1:MENU" &&@@ \}D:*.* 6,6." 6 @0i6-%@(6.7@<@,A67@ <@ ,.. ]}i67@<@,.7@<@,3 6.|67B:,%@,.367B:,%@,.G67@<@,.(--@ ^}B:,:7<,4 G67<,..] 6.=:, @D67@<@,.7@<@,]67@<@, _}.0$@(''7@<@,4FREE@- @ 2() <@F''7@< `}@,4FREE@K @ P(7@<@,)|U @0W'!-@6+'@,%@' |Z++( a}#| |[ ( |  |\++(#d**(" Sel b}ect HELP.BAS for information.xAR[@@9'-@@#C( FILE NUMBERM A0 c}Q[ BP:,A00"@&6.7@<@,0 AELB6.7+&@,$@%@<+& d}@,$@%@,L B37@<@,4 36.7@<@,!7@<@,4DOS!.0 6 e}.-@B:,07<,4 AH67B:,%@,.7<,   6.! 6.D1:!67B:,%@,.?A f}R@'-@@"?  LOADING ? A@@91@@5%? B[-@ g}@"-  CANNOT RUN 7 @LF:A,"@![% D:HELP.BAS B A0D:MENUDOC h} .TXTMENU.DOC.TXT .TXTC |A|DOC......TXT(A006585 FREE SECTORS7dH"(  L (( SELECTION""(+41)42)43,@ ,6. D:DOC.TXT42,6. D:PORT.TXT 436. j} D:DETAILS.TXTN((Hardcopy (Y/N) ?N+@<(+4Y)4N,D(N @&1 (}@1@ k}@ A(@2vB:,!@-7@<@,4XXX0(3(E-@@"Y( l}Πf@l(}v @@<(4Y3F @@dj@ B*-@@"R("Π m}ҠՠҠˠҠ_@j%D:MENU D1:HELP.BASdj@ B*-@@"R("Π G 1000 ' TYPO/ST 1010 ' (c) 1986 Antic Publishing 1020 ' Written by Patrick Bass and Bill Marquardt 1030 ' Version 050o}286 1040 '----------------------------------------------------------------- 1050 ' 1060 DISK=1: OUTPUT=2: TRUE=(-1): Fp}ALSE=0: CHECKSUMMING=TRUE 1070 TV=FALSE: PRINTER=FALSE 1080 ' 1090 print "File to Check:": input FILENAME$ 1100 prq}int "Output on:" 1110 print "(S)creen or ": print "(P)rinter ": input DEVICE$ 1120 if( DEVICE$="p" )or( DEVICE$="P" )thr}en PRINTER=TRUE else TV=TRUE 1130 ' 1140 if TV then print "Checksum for file: ": print FILENAME$: print 1150 if PRINTs}ER then lprint "Checksum for file: ";FILENAME$: lprint 1160 ' 1170 '-----------------------------------------------------t}------------ 1180 open "I", #DISK, FILENAME$ 1190 ' 1200 while CHECKSUMMING 1210 LINENUMBER=0: CHECKSUM=0 1220u} ' 1230 gosub GETALINE 1240 ' 1250 DECIMAL=CHECKSUM: gosub DECTOHEX 1260 OUTPUT$=str$( LINENUMBER )+" :"v}+HI$+LO$ 1270 if PRINTER then lprint OUTPUT$ else print OUTPUT$ 1280 wend 1290 ' 1300 close DISK 1310 end 13w}20 ' 1330 '----------------------------------------------------------------- 1340 GETALINE: 1350 BLINE$="": on error x}goto 1300 1360 GOTALINE=FALSE 1370 ' 1380 while not GOTALINE 1390 line input#DISK, BLINE$ 1400 if len( BLy}INE$ )>1 then GOTALINE=TRUE 1410 wend 1420 ' 1430 LINENUMBER=val( BLINE$ ) 1440 for CHAR=1 to len( BLINE$ ) 1450 z} OK=TRUE 1460 CHARACTER$=mid$( BLINE$, CHAR, 1 ) 1470 if CHARACTER$=" " then OK=FALSE 1480 if OK then C{}HECKSUM=CHECKSUM+asc( CHARACTER$+chr$( 0 )) 1490 next CHAR 1500 return 1510 ' 1520 '--------------------------------|}--------------------------------- 1530 DECTOHEX: 1540 DECIMAL=abs( DECIMAL ) 1550 HI=int( DECIMAL/256 ): LO=( DECIMAL}}-( HI*256 )) 1560 HH=int( HI/16 ): HL=( HI-( HH*16 )) 1570 LH=int( LO/16 ): LL=( LO-( LH*16 )) 1580 HI$=chr$( 48+HH-~}( 7*( HH>9 )))+chr$( 48+HL-( 7*( HL>9 ))) 1590 LO$=chr$( 48+LH-( 7*( LH>9 )))+chr$( 48+LL-( 7*( LL>9 ))) 1600 return H-{pqSSFLIPSTOSTARFIRSTSCREEFLIPBONUBRJJJOODISYYBTTTXXNSNXYMMXOXOYDDUF} @}@@} !"#$%&'()*+,-.}/0Rebound Contestby J.D. Casten (c) 1986, ANTIC PUBLISHING'6-@6-@'6-@}06-@$F:B2y,"@06- Adg-@)-/6-56-[6-?}:C:,<<<8,<%$@<8,,gAi6 6-%1&6.7%$AV,64OAPj'6-@6-@}'6-@mM 4B6-66-%"156.7%$AV,=4OC6-M APn' 4B6-6-@' AP}p4JAaxJ 416-@#6-@+6.BJ AP&AA$+"6@,yI 426-@#6-}@+6.BI AP&AA$+"@,\ 4S6.B6-'6-@&.6-6:6-@F6-@R6-@}\ A S 4T)6-&%6-&16-@!=6-@I6-@S A4DAPH6-F:A}2,6-%8,%186.7%$AV,H4OA? 4B6-6-@)6-56-@? A}0JAqI6-@6-@'6-@-,;6-%@I"A= 6-66-%1-6.7%}$AV,=4OA 6- A` 416-@#6-@/6-@76.BV AP&@$+"6@},` A_ 426-@#6-@/6-@76.BU AP&@$+"@,_ Ad4S* }@6-)6-@&06-6<6-@H6-@T6-@Z6-d AS4T*+),6-&%6-&1}6-@!=6-@I6-@S A4DAP%6-&@%2   4F:B2T},@*B2x4 Ab@@-A#@?A@TE6-Q!AUb6-P}:'AU,6-@r,-@6@8AO-6@k2+&,$@y6-A}R&}  /6-&@/ A%A$+",,e6-@6-@2'6-@1 AG )}!@U6-@&[6-e A-6-@#& A[ A6-%@'6-36-@?6-@}G6-%O6-%[6-a AAY@(1-E A%$@PO AaAY@b}[#A%$@P"'A+"7A;"GAK"WA["A"a} A6-@6-%6-1@=@OA#@aAA2-@@#C(@}FLIPS:&@ ROOM: e2@A @@2@A@@KB7b@&}!6-@-6-96-K@w 2B2x2F:B2T,"@A% AXM A}+@)AY@b;@@"M@]<A@'-@@<(@Š}_N(A@,-@@N(@SAVED % OGARTS`nAAB+-@}L(@FLIP SAVES HUNDREDSn(@ AWARDED KEY TO CITYaa@@+@@ =A@r}a(@ & FLIPS LEFTbNA @(3-@@ &+",N(@ press triggergF:}AD,Al A*-B7`B7g#' *$ +@@d+B7t@d!$e}AF:A@,/6-F:A,&@CA&@M+@W Ae6-%@U(@ BoD}7(@ U(@ iNiAzI;@ ,6-@%%6-F:@,%AV$F:@,R};@V,;A6,9@,;@,;@,9@,9@,\#Ap-@@Vt"67,.>:,} 8;@4,$-@@4("467,.>:,8 $AVG6-?:C:,<$AV<$AV%@<A5},[-@6-?:C:,<Bxr<$AV%$A%@<A, + 6.B67A6,.B+67@,}. -AAV w 67@E%<@E%,.O=67As%<As%,.OZ67@%<@%,.Ow}67AA%<AA%,.O 67@2%<@2%,.O-@@67%<%,.O*'AV"&@}*67%<%,.D  67@%<@%,.S 67@6%<@6%,.D 67A1%<A1%,.J} 67AT%<AT%,.1 67@%<@%,.2,-@'@0(67%<%,.T, B K #A}LQ-@+-@@G/"I$AV%$A%M Q QQ-@HA'"/-@}I$AV%%$AM Q R #A!-@ %"9-@6-?:C:,<BsD%$@<}$AV%$A%A(%$@<@,  V= #A!-@@'"068,-968,-= `S #A}!-A6A%"+/ AA@SA@eJ #A!-@@'"7A6%}%; J6-?:A6,jw-@76-$AV%$A%AdCc6-?:C:,<<%@<@G,w-}@o<%&AVF:+@&,$A%$AV%@%,w%$@%F:$AV%+@&,$A%}@2%,{  t2 #A!-@%".68,-2 A +@ A)AY@b;AVA$}A6- 6-@6-'6-@36-@?6-@K6-@X6-6@e6-6@k6-q6-w6-}}6-A @A@A@(x-@@2(@ҠϠD-@}x(@&q6-+&@,$+ @,+#%A0/"_F:A`,%F:Aa},$AV%@"@q@wI -&(@ ,-I(@rebound contestG -}%(@ +-G(@by jd casten~F:A2, @H6-%+F:A2,"@,&+F:A2},"@,n6-$+ @,%@$+ ,z#%A0~""-@"(@: 6-6-%'"})"@.6-6:6-@H 6-6-%5")+&@*"@,<6-6H6-@: 6-6-%'"})"@.6-6:6-@I 6-6-%6+%@*"6@,)"@=6-6I6-@(16-&@}12@@@2F:AD,A76-%@xs +@ A)AY@(;A}@OBBy%@aB2w@sBB@dy9%6-F:A`,%AV$F:Aa,9%@A;}-@@'%%A4) ;BBA9A@R'AAf9A @c @2}6-@+A#@96-&@EAVK6-W6-c6- ASCREEN #1&&(@},,,,,.,,,,,,,,,,,,,&&(@, . ,&&(@, . ,&&(@, .} ,&&(@, . . ,&&(@, .. ,&&(@, . . } ,&&(@, . .,,&&(@,. ,&&(@,...... ,&&(}@. . ,&&(@,. ,&&(@, ,&&(@} ,,&&(@, ,&&(@, ,&&(@, , } ,&&(@ , ,&&(@, , ,&&(@, ,}&&(@, ,&&(@, ,&&(@,,,,,,,,,,,,,,$$$85,}134,107,45,0,-1,0,1,1,16SCREEN #2&&(@&&(@# &&(@}# Z&&(@ _&&(@ ^&&(@ } ]&&(@ \&&(@ [&&(@ } Z&&(@ Z[\]^_Z[\]^ _&&(@% ^&&(@]&&}(@ Z_^]\[Z_^]\[Z \&&(@[&&(@]\[Z_^]\[Z_^]\[Z Z&&(@} _&&(@ ^&&(@ ]&&(@ } \&&(@ [&&(@ Z&&(@  }&&(@$$$$&$&76,214,182,10,0,-1,0,63,17,21SCREEN #3&&(@ }&&(@`\ _ ##_Z\\\\&&(@k ^[ &&(@k ]\ &&(}@ \] &&(@ ## [^ &&(@s$$$$Z_## $  &&(@g} &&(@`  #   &&(@s  &&(@ }  &&(@ &&(@ &&(@f    }&&(@k#&&(@h _Z &&(@s ^[ ####&&(@}s ]\ #&&(@d \] ##&&(@q [^ ###&&(@r##}#Z_ &&(@ &&(@ HR MNS fnkc %$%106,106,90,90,0,-1,0,73,7,}103SCREEN #44&&(@5&&(@,,svn ne sgd adrs 6&&(@,, , } 7&&(@8&&(@, 9&&(@ :&&}(@ ;&&(@ <&&(@ =&&(@} , >&&(@ ?&&(@ @&&(@ } A&&(@ B&&(@ C&&(@}D&&(@E&&(@F&&(@Z[\]^_Z[\ \[Z_^]\[ZG&&(@},H&&(@I&&(@J&&(@}K$$$52,136,166,10,0,-1,0,70,8,8eSCREEN #5f&&(@$$$$$$$$$$$$$$$g&&(@ }h&&(@ i&&(@  j&&(@ } k&&(@ \ Z_^[\] l&&(@ , [ m&&(@ , Z  n&}&(@$ $ , _  $o&&(@ , ^ p&&(@ , ] q&&(@}$ $], \ $r&&(@ ^ [  s&&(@ _ Z t&&(@ Z } u&&(@ ]  v&&(@ ^_[\]^_Z[\]^_ w&&(@ _  }x&&(@ ZZ[\]^_Z[\]^ y&&(@  z&&(@$ ${&&(@},,,,,,,,,,,,,,,,,|&&(@ fnnc,ktbj }$$$71,136,162,10,0,-1,0,54,1,3SCREEN #6&&(}@gd nars`bkd bntqrd &&(@saass&&(@$ Z^_Z. - . . .Z&&(@ } [][ [&&(@ \\\. . - . .\&&(@ $]b[] ]&&(@ ^nZ^- . }. . -^&&(@r _m__ _&&(@k$ Zu^Z- - . - -Z&&(@n [d][ [}&&(@k \x\\. . - . -\&&(@` $]d[] ]&&(@l ^qZlhmdehdkc^&&(@} __ $ _&&(@$ Za^$ $ Z&&(@ [d] $ [&&(@ \k\} $ \&&(@ $]s[$ $ ]&&(@ Z^Z $ ^&&(@ ___ $ _}&&(@^Z^$ $ Z&&(@ ] [\] $ [&&(@fnncktbj%$%}52,136,166,10,0,-1,0,45,1,21SCREEN #7&&(@ kho `bsnqx &&(@ &&(}@    &&(@ &&(@  &&(@}  h j  &&(@ l k t ` &&(@r f q &&(@ / } &&(@/ //  &&(@   &&(@  $ $ }&&(@     $ $&&(@     $&&(@   $&&(@} o r u $ $&&(@ q q r  &&(@  &&(@} n c q &&(@o vd &&(@ &&(@   }&&(@ $$$52,152,70,10,112,-1,0,9,1,2&&(@&&(@} &&(@ &&(@  &&(@ }  &&(@  &&(@ &&(@$$$$$$$$$$$$}$$$$$ &&(@ &&(@  &&(@  &}&(@  &&(@ &&(@$$$$$$$$$$$$$$$$$$ &&(@}   &&(@  &&(@  &&(@ }  &&(@   &&(@    &&(@   _^]\[ZZ[\]^_ } &&(@   &&(@ &$&36,72,72,187,208,15,29,70,1,1. &&(@}/ &&(@ $0 &&(@ 1 &&(@ } 2 &&(@ 3 &&(@ , 4 &&(@ } 5 &&(@ 6 &&(@$ $$ 7 &&(@\ _ 8 &&}(@[ Z 9 &&(@  : &&(@Z [ ; &&(@}_ \ < &&(@$ $$ = &&(@ > &&(@ } ? &&(@ , @ &&(@ A &&(@ }B &&(@ C &&(@ $D &&(@E ($(69},246,199,10,96,25,22,14,18,11` &&(@,,,,,,,,,,,,,,,,,,,,a &&(@ ,b &&(@}^[c &&(@]\d &&(@\]e &&(@[ \ ^ }_ f &&(@Z _\]^g &&(@_Z h &&(@^[ i &}&(@ ]\ j &&(@\]k &&(@[^l &&(@}Z_m &&(@_ \ Zn &&(@^[o &&(@]}\p &&(@\]q &&(@ ]\[Z_^]\[Z_^]\[Z_^ r &&(@ }s &&(@ .......t &&(@ ....u &&(@ _ ..v &&(@}.......w $$$0,205,6,10,148,28,36,27,8,1 &&(@ѯˢ &&(@ } Z_ &&(@ [^ &&(@     \] &&(@    }]\ &&(@    ^[ &&(@   _Z &&(@     ..-. Z_ &&(}@   [^  &&(@ \] &&(@ ]\ &&(@} ,,,,,,,,,,, ^[ &&(@ _Z &&(@ \[Z_^]\[Z_^]\[Z_ &&(@ ] } ^ &&(@ ^ ] &&(@ _ ,\ &&(@ Z [ } &&(@ [ Z &&(@ \]^_Z[\]^_Z[\]^_ &&(@ ,,,,,,,,,,,,  &&(@ }  &&(@ǯʢ !$!7,184,5,74,2,-1,0,29,0,8 &&(@gddantmc }nmsdrs &&(@,,, &&(@ , , &&(@ , , } &&(@ ,  , &&(@  ,    &&(@  ,  &&(@ } + ,  &&(@ ) ,  &&(@ ,  &&(@ nmf}q`stk`shnmr  &&(@ ~_{\~_{\ &&(@ ,,,,] &&(@ ,,,,\vdm }^ &&(@--....,{b`qk _ &&(@.... ..-dkkhr Z &&(@.......-_l`qj [ &&(}@.......-~kdnm`qc\ &&(@......-gi ] &&(@. - .-\c`uhc ^ &&(@. } ...-{jduhm+_ &&(@......-shl  &&(@,...... #$#52,191,8,70,0,20,23,5},14,9 TITLE SCREEN 10TH TIM SIMPSON 9TH KEVIN O'NEIL 8TH DAVID TODD 7TH H.}J. MCGINTY 6TH LEONARD DEJESUS 5TH MARK ANDERSON 4TH ELLIS PHILLIPS 3RD GWEN LENKER 2ND } CARL ARCHER 1ST GWEN LENKER CLOSING SCREEN(#CHARACTER DATA)#%%126,195,129,129,129,129,195,126}*#%%254,223,175,215,235,245,251,127+#$$60,120,124,214,255,135,195,126,#%%126,255,219,255,231,195,231,126-# 6,15,11,15}3,153,208,240,96.#%%126,195,129,153,153,129,195,126/#%%254,187,221,175,215,235,245,1270#$$60,120,124,214,255,199,255,12}61#%%126,239,255,251,209,241,251,1262# 14,31,17,24,24,136,248,1123#%%126,195,153,189,189,153,195,1264#%%254,245,187,}221,175,215,235,1275#""60,30,62,107,255,239,255,1266#%%126,251,241,209,251,255,239,1267#28,62,34,56,28,68,124,568#%%}126,219,189,231,231,189,219,1269#%%254,235,245,187,221,175,215,127:#""60,30,62,107,255,255,255,126;#%%126,231,195,231,}255,219,255,126<#120,224,192,120,30,3,7,30=#%%126,255,231,195,195,231,255,126>#%%254,215,235,245,187,221,175,127?#""}60,30,62,107,255,247,255,126@#%%126,223,143,139,223,255,247,126A#96,192,192,222,123,3,3,6B#%%126,231,195,129,129,195},231,126C#%%254,175,215,235,245,187,221,127D#$$60,120,124,214,255,231,255,126E#%%126,247,255,223,139,143,223,126F#0},96,206,219,219,115,6,0G#$$60,120,124,214,255,131,199,126H###120,60,126,86,255,129,195,126I#""60,30,62,107,255,193,227,}126J###60,120,92,214,255,231,195,126K#""60,30,58,107,255,231,195,126L#0,0,36,60,0,126,60,0M#0,0,0,0,0,0,0,0N#%%}255,255,255,255,255,255,255,255O#%%255,255,255,255,255,255,255,255P#%%255,129,129,129,129,129,129,255#==1,64,1,64,1,64 },0,0,-1,48,-1,48,-1,48,0,0,0,56,0,56,0,56T$[[104,169,6,162,6,160,10,76,92,228,216,165,5,10,10,10,24,105,48,141,2,208,141,3,!}208,166U$XX7,160,0,152,157,0,158,157,0,159,232,200,192,8,208,244,165,6,10,10,10,24,105,32,133V$QQ7,170,160,0,185,56,154,1"}57,0,158,185,88,154,157,0,159,232,200,192,8,208,238W$MM169,136,133,203,169,10,133,204,173,244,2,141,9,212,173,196,2,141,22,#}208X$76,95,228$<<72,216,173,11,212,201,107,176,30,141,10,212,165,203,24$LL105,240,141,23,208,133,203,165,204,24,105$},16,141,25,208,133,204,173,11$QQ212,201,108,144,13,141,10,212,169,224,141,9,212,169,28,141,22,208,104,64,-1$99104,104,1%}04,133,5,104,104,133,6,104,104,141,56,6,96%''32,12,60,12,35,13,66,13,63,0,57,0H&##14,35,36,38,39,42,43,50,52,55&194&},193,192,192,192,193&bb104,104,133,2,104,133,1,104,133,4,104,133,3,104,133,6,104,133,5,160,0,240,16,177,1,145,3,230&``1'},208,2,230,2,230,3,208,2,230,4,198,5,165,5,201,255,208,232,198,6,165,6,201,255,208,224,96&``104,104,104,133,5,104,104,133,(}6,104,104,141,56,6,104,104,141,244,2,104,104,141,3,210,173,6&""208,133,212,169,0,133,213,96D1:REBOUND.BAS104,133,u""CHSEWORDHAIKUPHRNOU1NOU2TMP1MP2MP3CHANGSXOUMAKEPHIJNSNDECOUNTEDECIDCRATCARVANOU*}BANADSUVERADPRECHOICMXSOUNCONSOCNSODEBUAR((Xd "(J(+} r( (  AH?%cGebPA9,} !"#$%&'-}()@ *+,- HAIKU WRITERBY A. BAGGETTA (c) 1987, ANTIC PUBLISHING(6-F.}:B2y,@Zh6-+F:A,&@,(A2+DA A4VAA4hAA4\'/}AR@'@dGG;@@,;A,;A,;@0,;@0,;@,iT<;@@,;0}@@,;@@,;@@,;@,H6-T6-n6.yl`QxTITLE SCREEN- A"1}X-@ @/(JAPANESE HAIKU WRITERA-@ @X( BY A. BAGGETTA-@  A"2}LOAD CHARACTER SETAVy@7@@ D:JAPAN.FNTC6-AHW%@@3}k%@y%@\%@+%@ @G6-?:C:hhhLV,<@,R@\ A%4}SET-UP HAIKU SCREENp -@6?P<2@0@X2@@0@l-@5}@p BA @& /-@A>6-H:,B H@w#6-%@H(} h6}aiku writer POEM I( (I( !#$ >:@,>:@, *QQ( %&' 7} >:@,>:@,>:A6,>:A8, 00( ()* * >:A6,**(" 8} * )-@@)(!#$ !#$ !#$*)-@@)(%&' %&' %&'4)-@@)(9}()* ()* ()*> A HJAPANESE SONG ROUTINER%%6-P:H:,$@,%@\6-@:7<,,[-:}@?052@W2@@@@[ ;2@;2@@@;}@8%-@P:H:,$Ap,46-F:B2y,8 s%2@G2<}sREMOVE REM FOR DELAY BETWEEN NOTES AB=1^1$OPTION FOR THREE PHRASES9%6-P:H:,$@,%@=}9@A A  ASTART WITH AN ARTICLE 6. A67@}DECIDE ON ADJ OR NOUN%%6-P:H:,$@,%@4"@ A@# Ap- A46.$. A?}6. Ap' A.6..ADD A VERB8( A Ap! A(6.B!!DECIDE ON ADV OR ADV PHRAS@}EL%%6-P:H:,$@,%@V"@ A`@A@j Ap A6.t++P:HA}:,$@,"@Ap~ A ! Ap!67B:,%@,.N AP6-%6-@16-@B}=6-N-@B:,6-%@7<,4 6-%@8"@(6-,6-%@C}86- -%%(7<, S%6-P:H:,$@,%@1"@C-%%@%I(.S ApD}:7B:, Ap#67B:,%@,._} 767B:,%@,.>6. A4)4A @ : 6.67B:,%@,. 367B:,%@,.:6.`}@$ 6-%@*"@6. A 4"@6. A >"@6. A a}H]-@@(,/-@@ 7(,I-@@Q(.]6-R)-@%@&( -- retb}u pmoc)$\PRINT POEMf.@.@@P:p"@A"Pz6-6-c}-@B:,6-%@7<,4 6-%@2"@(@&6-26-"@d}(@ (@7<,  A"(@(@(@.(@.(e}@ --Retu Pmoc1(@(@$@. A%1$&-@@"( !#$ & &-@f}@"( %&' & )-@@"( ()* & )$CLOSING SCREEN 'SAYANARA' U(>:A%,((1(g} RETU PMOC4(O( BIDS YOUR(U( OAu'Av@9AwAO"" ISq}^b'DOS SYSb*+DUP SYSbUAUTORUN SYSbWMENU iHELP BASnDOC TXTPORT TXT'LINKLINEPRGSEASURF PI3TRACER EXE6 TRACER M65?NEWOWN6 BASMWESIM BAS]WETST BAS=cWX BASLINKLINEEXE [CTRL]+[TAB] F(!(   3(   F(  B ( INVERSE CTRL-M = "" )L P( r})( =(P(  ?(  &(  ܠ3( ?(s}  $( ($( SAYANARA -@?  ))2@%'@@   t} -@6? E!2@ %@E2@AU@%@   <Au@u}'Av@9Aw@< +@A+B7tA $ D1:HAIKU.BASAu@m1000 ' 1010 ' 1020 ' ALPHABET FISH 1030 ' (c) 1987 Antic Publishing 1040 ' Version 042187 1050 ' Written by Deboraw}h H. Lundgren 1060 ' 1070 '------------------------------- 1080 HOUSEKEEPING: 1090 gosub NAMEGAME 1100 gosub SETCx}OLOR 1110 ' 1120 while PLAYING 1130 DING$=chr$(7): YES=1: NO=0: GOOD=1: MOUSE=0 1140 COUNT=1: FINISHED=27: Fy}=11: G=3 1150 gosub DECIDE 1160 gosub PICTURE 1170 gosub GAMELOOP 1180 gosub ABCSONG 1190 gotoxz}y 10,1: input "Play Again? (Y/N)",PLAY$ 1200 PLAY$=left$(PLAY$,1) 1210 if PLAY$<>"y" or PLAY$<>"Y" then PLAYING=F{}ALSE 1220 wend 1230 end 1240 ' 1250 '------------------------------------ 1260 NAMEGAME: 1270 A#=GB 1280 ADD|}RESS=peek(A#+8) 1290 AESOUT=peek(SYSTAB+8) 1300 poke SYSTAB+24,1 1310 NAME$=" Alphabet Fish " 1320 poke ADDRESS+0}},AESOUT 1330 poke ADDRESS+2,2 1340 S#=ADDRESS+4 1350 NAME$=NAME$+chr$(0) 1360 poke S#,varptr(NAME$) 1370 gemsy~}s(105) 1380 poke SYSTAB+24,0 1390 return 1400 ' 1410 ' In GFA BASIC: 1420 ' 1430 ' NAMEGAME: 1440 ' Titlew 2,"} Alphabet Fish " 1450 ' return 1460 '--------------------------------- 1470 SETCOLOR: 1480 ' 1490 TRUE=(-1): FALSE}=0: PLAYING=TRUE 1500 ' 1510 dim P%(16) 1520 for P=0 to 15 1530 read Z 1540 P%(P)=Z 1550 next P 1560 } data 1911,1792,96,1856,7 1570 data 1799,119,1365,819,1792 1580 data 96,1904,119,1799,119,0 1590 defdbl L:L=1114 1600} poke L,varptr (P%(0)) 1610 return 1620 ' 1630 '------------------------------- 1640 DECIDE: 1650 fullw 2: clear}w 2 1660 color 2,14,14,5,2: ellipse 145,25,24,12,180,3420 1670 linef 161,19,175,16: linef 175,16,175,34 1680 linef 1}75,34,161,31 1690 fill 150,20 1700 gotoxy 15,2: print "HI!" 1710 color 2,3,3,5,2 1720 ellipse 75,15,12,6,180,3420} 1730 linef 85,12,92,9: linef 92,9,92,21 1740 linef 92,21,85,18 1750 fill 75,12 1760 gotoxy 8,1: print "A" 1770 } color 2,4,4,5,2 1780 ellipse 212,15,12,6,180,3420 1790 linef 222,12,229,9: linef 229,9,229,21 1800 linef 229,21,22}2,18 1810 fill 215,15 1820 gotoxy 23,1: print "a" 1830 sound 1,0,0,0,100: color 1,0,1,1,1 1840 CHOICE=0 1850 w}hile CHOICE=0 1860 gotoxy 3,5: print "Uppercase or Lowercase (U/L)?" 1870 color 2: gotoxy 29,5: input " ",CHOICE$}: color 1 1880 UPPERCASE=FALSE 1890 if CHOICE$="U" or CHOICE$="u" then CASE=1: CHOICE=GOOD 1900 if CHOICE$=}"U" or CHOICE$="u" then UPPERCASE=TRUE 1910 if CHOICE$="L" or CHOICE$="l" then CASE=2: CHOICE=GOOD 1920 wend 1930 } CHOICE=0 1940 while CHOICE=0 1950 gotoxy 3,8: print " Mouse or Keyboard (M/K)? " 1960 color 2: gotoxy 26,8:} input " ",CHOICE$: color 1 1970 if CHOICE$="K" or CHOICE$="k" then CHOICE=GOOD 1980 if CHOICE$="M" or CHOICE$="m}" then MOUSE=YES:CHOICE=GOOD 1990 wend 2000 return 2010 ' 2020 '------------------------------ 2030 PICTURE: 2040} restore FISHPICS 2050 fullw 2: clearw 2 2060 ' 2070 'FISH 2080 for LETTER = 1 to 26 2090 read C,N,D,X,Y,X1},Y1,UC$,LC$ 2100 color 1,C,C,5,2 2110 ellipse X,Y,12,6,180,3420 2120 linef X+10,Y-3,X+17,Y-6: linef X+17,Y-}6,X+17,Y+6 2130 linef X+17,Y+6,X+10,Y+3 2140 fill X,Y 2150 gotoxy X1,Y1 2160 if UPPERCASE then print }UC$ else print LC$ 2170 next LETTER 2180 restore FISHPICS 2190 ' 2200 'SEA 2210 color 1,5,5,1,1 2220 for X=2 }to 300 step 12 2230 circle X,79,12,2300,3100 2240 next X 2250 circle 302,79,12,2300,3000 2260 fill 50,115 227}0 ' 2280 'SUN 2290 color 1,14,14,2,1 2300 pcircle 303,0,45,1800,2700 2310 fill 300,5 2320 linef 250,5,230,5: l}inef 255,20,235,30 2330 linef 264,35,250,53: linef 280,45,271,73 2340 linef 295,50,295,82 2350 ' 2360 'RECTANGLE 2}370 color 1,5,1,1,1 2380 linef 97,25,217,25: linef 217,25,217,50 2390 linef 217,50,97,50: linef 97,50,97,25 2400 f}ill 100,30 2410 ' 2420 'FISHINGPOLE 2430 color 1,9,9,1,1 2440 linef 0,80,40,20: linef 40,20,42,21 2450 linef 42,}21,2,81: linef 2,81,0,80 2460 fill 40,21 2470 linef 42,21,44,30 2480 color 1,2,2,1,1 2490 circle 44,32,2 2500 }fill 44,32 2510 color 1,0,9,1,1 2520 linef 44,34,44,36 2530 circle 46,36,2,1800,3600 2540 sound 1,0,0,0,100 2550} return 2560 ' 2570 '------------------------------ 2580 GAMELOOP: 2590 read C,N,D,X,Y,X1,Y1,UC$,LC$ 2600 while }COUNT < FINISHED 2610 gosub ERASESMILE 2620 if MOUSE=YES then gosub CLICKFISH else gosub KEYBOARD 2630 if A}NS$=UC$ or ANS$=LC$ then gosub GOTFISH else gosub WRONG 2640 wend 2650 return 2660 ' 2670 '-------------------------}---- 2680 ERASESMILE: 2690 color 1,14,14 2700 circle 303,0,25,2000,2700 2710 circle 303,0,26,2000,2700 2720 retu}rn 2730 ' 2740 '------------------------------- 2750 KEYBOARD: 2760 gotoxy 10,1: input "Choose Letter ",ANS$ 277}0 return 2780 ' 2790 '------------------------------- 2800 CLICKFISH: 2810 CLICK=NO: CORRECT$=UC$ 2820 gotoxy 10},1: print " Choose Fish " 2830 while CLICK=NO 2840 CONTROL=peek(A#) 2850 GLOBAL=peek(A#+4) 2860 GINT}IN=peek(A#+8) 2870 GINTOUT=peek(A#+12) 2880 ADDRIN=peek(A#+16) 2890 ADDROUT=peek(A#+20) 2900 gemsys(7}9) 2910 XM=peek(GINTOUT+2) 2920 YM=peek(GINTOUT+4) 2930 CLICK=peek(GINTOUT+6) 2940 wend 2950 ' 2960 } PART.ONE=FALSE 2970 PART.TWO=FALSE 2980 ' 2990 if XM>(X-12) AND XM<(X+12) then PART.ONE=TRUE 3000 if YM>(Y+14) AN}D YM<(Y+26) then PART.TWO=TRUE 3010 if PART.ONE=TRUE and PART.TWO=TRUE then ANS$=CORRECT$ 3020 return 3030 ' 3040 '-}----------------------------------- 3050 WRONG: 3060 sound 1,0,0,0,30 3070 sound 1,15,12,2,20: sound 1,0,0,0,50 3080} gotoxy 10,1: print " SORRY,TRY AGAIN! " 3090 sound 1,0,0,0,120 3100 gotoxy 10,1: print " " 3}110 return 3120 ' 3130 '----------------------------------- 3140 GOTFISH: 3150 'ERASEFISH 3160 color 1,5,5,1,1 3}170 for D=Y-6 to Y+6 3180 linef X-12,D,X+17,D 3190 next D 3200 fill X,Y 3210 ' 3220 'SMILE 3230 print DI}NG$ 3240 color 0,0,0 3250 circle 303,0,25,2000,2700 3260 circle 303,0,26,2000,2700 3270 ' 3280 'ERASE LETTERS 3}290 gotoxy 10,1: print " " 3300 ' 3310 'DRAW NEW FISH 3320 color 1,C,C,5,2 3330 ellipse 48,46,}6,12,2880,2520 3340 linef 45,56,42,63: linef 42,63,54,63 3350 linef 54,63,51,56 3360 fill 48,46 3370 gotoxy 5,4 }3380 if UPPERCASE then print UC$ else print LC$ 3390 sound 1,0,0,0,100 3400 ' 3410 'ERASE NEW FISH 3420 color 0,0},0,1,1 3430 for Y=63 to 35 STEP -1 3440 linef 42,Y,54,Y 3450 next Y 3460 ' 3470 'REPLACEHOOK 3480 color 1,}0,9,1,1 3490 linef 44,34,44,36 3500 circle 46,36,2,1800,3600 3510 ' 3520 'ENTER LETTER 3530 color 1,0,1 3540 }gotoxy F,G 3550 if UPPERCASE then print UC$ else print LC$ 3560 F=F+1 3570 if F=24 then F=11: G=4 3580 read C,N,D},X,Y,X1,Y1,UC$,LC$ 3590 COUNT=COUNT+1 3600 ' 3610 return 3620 ' 3630 '--------------------------------- 3640 ABC}SONG: 3650 sound 1,0,0,0,30 3660 gotoxy 10,1: print " GOOD JOB! " 3670 sound 1,0,0,0,60 3680 restore FISHPICS} 3690 F=11: G=3: TIMES=1 3700 while TIMES<=26 3710 read C,N,D,X,Y,X1,Y1,UC$,LC$ 3720 color C,0,1,1,1 3730 } gotoxy F,G 3740 if UPPERCASE then print UC$ else print LC$ 3750 sound 1,10,N,4,D 3760 sound 1,0,0,0,0 } 3770 F=F+1: TIMES=TIMES+1 3780 if F=24 then F=11: G=4 3790 wend 3800 TIMES=1 3810 color 1,0,1,1,1 3820 } while TIMES <=14 3830 read N,D 3840 sound 1,10,N,4,D 3850 sound 1,0,0,0,0 3860 TIMES=TIMES+1 3870 } wend 3880 sound 1,0,0,0,60 3890 return 3900 ' 3910 '------------------------------- 3920 FISHPICS: 3930 data 1}5,1,19,50,150,5,16,A,a,3,1,19,245,105,27,11,B,b 3940 data 3,8,19,150,150,16,16,C,c,8,8,19,256,150,28,16,D,d 3950 data 4,1}0,19,102,96,11,10,E,e,10,10,19,22,105,2,11,F,f 3960 data 9,8,39,175,132,19,14,G,g,7,6,19,290,122,32,13,H,h 3970 data 14,6},19,166,96,18,10,I,i,10,5,19,15,132,1,14,J,j 3980 data 4,5,19,102,150,11,16,K,k,8,3,9,210,105,23,11,L,l 3990 data 3,3,9,2}0,150,2,16,M,m,14,3,9,47,122,5,13,N,n 4000 data 9,3,9,58,96,6,10,O,o,7,1,39,257,123,28,13,P,p 4010 data 10,8,19,123,113,1}3,12,Q,q,11,8,19,83,113,9,12,R,r 4020 data 8,6,39,87,131,9,14,S,s,2,5,19,220,123,24,13,T,t 4030 data 2,5,19,282,96,31,10,}U,u,11,3,39,229,140,25,15,V,v 4040 data 6,8,39,200,149,22,16,W,w,6,6,39,128,131,14,14,X,x 4050 data 7,5,39,173,113,19,12,}Y,y,4,3,39,284,141,31,15,Z,z 4060 ENDSONG: 4070 data 1,19,1,19,8,19,8,19,10,19,10,19,8,39 4080 data 6,19,6,19,5,19,5,19},3,19,3,19,1,39 1,31,15,Z,z 4060 ENDSONG: 4070 data 1,19,1,19,8,19,8,19,10,19,10,19,8,39 4080 data 6,19,6,19,5,19,5,19 WELCOME TO THE ANTIC MONTHLY DISKMost of the pro!}grams on this side of the disk are for the ATARI 520 ST.We recommend you refer to thecorresponding issue of ANTIC forcom!}prehensive documentation. If youwish to order a back issue, or needsubscription information, contact usat (415) 957-0886 o!}r, for credit cardorders, dial (800) 227-1617, Ex. 133.In California,(800) 722-3545, Ex. 133XXX *** BONUS FILES * BONUS !}FILES ***Whenever there is sufficient room,we will be including TYPO-ST andLINKLINE on the monthly disks.Please see th!}e HELP files on thisside of the disk for LINKLINEinstructions.XXXThe menu that appeared on the screenwhen you bo!}oted the disk will onlyRUN programs with a .BAS extender.(NOTE: The menu WILL NOT RUN ST BASIC programs!)If you !}try to run a program and theresponse is 'cannot run Filename',then check the file extender withthe following list:XXX.!}SYS Reserved for DOS system files..DAT Data file. Usually accessed by another program..TXT Text file. Usually !}accessed by another program..PI2 A Med.-resolution DEGAS picture file.XXX*** Files for the 520 ST ***.!}C C Language source code. Must be ported to an ST disk. See the corresponding article for complete !}details..BAS An ST BASIC program. WILL NOT RUN on 8-bit computers!!! Must be ported to an ST disk. !} See the corresponding article for complete details.XXX.PRG A compiled ST program which uses GEM. !} Must be ported to an ST disk. See the corresponding article for complete details..TOS A compiled ST pr!}ogram which does not use GEM. Must be ported to an ST disk. See the corresponding article for com!}plete details..S 68000 Assembly language source code. Must be ported to an ST disk. See the corre!}sponding article for complete details.XXX Whenever possible, we will try toadapt our programs to work with asm!}any configurations of C as possible.But we think ANTIC's published Clistings should come as close aspossible to the indust!}ry standard. At this time, only the Lattice,Alcyon, GST and Megamax C packagesdo this.XXXAll programs from ANTIC is!}sues datedprior to August 1984 were reproducedfrom ANTIC's Archive. We have worked to insure that ourprograms operate a!}s published, butwe consider all our softwarelistings to be works in progresswhich we encourage you topersonalize and enha!}nce.Good luck, and ENJOY!-ANTIC EDtwarelistings to be works in progresswhich we encourage you topersonalize and enha (ST LISTINGSON MONTHLY DISK...and how to get themby CHARLES JACKSONAntic Technical EditorFor those ST owners who do no%}t yetown a C compiler, but are eager totry out Antic's C language listings,we are now including the executableobject code%} on the Antic MonthlyDisk.XXXAll disk files with extendersof .PRG, .TOS, .TPP and .ACC arecompiled ST programs, ready %}to betransferred to an ST disk andexecuted. Given enough disk space,we will also include the sourcecode. 'C' source cod%}e files willhave a .C extender, assemblylanguage source code will havean .S extender.XXXPORTING FILESBefore using an %}ST program, you musttransfer it to an ST disk. Thisprocess of transferring filesbetween computers is called"porting."X%}XX To port a file from the AnticMonthly disk to an ST disk, you'llneed the Linkline programs fromthe August 1985 issue%}.(LINKLINE.PRG and LINKLINE.EXE are both included on this disk).XXXIf you don't have Linkline, youmay also use: %}- A telecommunications programfor the ST which supports XMODEMfile transfers.FLASH or PC/InterComm will work).XXX - %}A similar program for your8-bit Atari which supports XMODEMfile transfers. Chameleon orBackTalk will work. Unfortunately%},HomeTerm won't do the job because ittranslates all carriage returns intoATASCII value 155. Also, don'texpect to succeed%} at ST porting withany version of AMODEM.XXXA - 8-bit Atari computerB - An Atari 850 Interface Module with a modem %}cable (RS-232 to D-9.)C - Null modem connectorD - Gender changer (if required)E - Your ST   %} | A |=>| B |=>| C |=>| D |=>| E |     Sample porting configurationXXX IMPORT%}ANT: If you're not usingLinkline, both modem programsmust be configured similarly. Ifyour 8-bit software is set for 1200%}baud, your ST software also must beconfigured for 1200 baud. Additionally, BOTH programs mustbe set for 8-bit (binary) %}filetransfers.XXX Once both computers are linkedtogether you may begin the filetransfer. You can also reverse this%}procedure to transfer files from STdisks to your 8-bit machine.XXXWALK-THROUGH DEMO1) LINKLINE:Once both LINKLINE pro%}grams arerunning, place the monthly diskinto the 5-1/4" drive, and sitdown at the ST. Choose theLOAD A FILE option and t%}ype inthe name of the file you want totransfer. LINKLINE will pullthe file off of the monthly disk,and save it to an ST %}disk.That's it. You're done.XXXWALK-THROUGH DEMO2) MODEM PROGRAMSLet's walk-through a sample filetransfer. We'll %}use BackTalk on an8-bit machine, and FLASH on the ST. Configure BackTalk for 1200 baud,with Full Duplex and ASCIItrans%}lation. Press [SELECT],choose the XSEND option, selectXMODEM protocol and enter the nameof the file you wish to port.X%}XX From the ST desktop, double clickon FLASH.PRG. Make sure FLASH isrunning at 1200 baud. Type -Bto change baud%} rates, if necessary. Now type -R (for RECEIVE).When the file selector box appears,press [ESCAPE] and type the name %}ofthe file to receive. Press [RETURN]or click on OK. To begin the transfer, press the[START] button on the 8-bit Atar%}i.XXX Occasionally some versions ofXMODEM will append extra "garbage"characters to your files. Textfiles, such as C%} listings, areparticularly susceptible to thisproblem. If your implementation ofXMODEM appends garbage characters toyour%} source code, you must removethose characters with a text editorbefore compiling the program.s garbage characters toyour$aANTIC DATABASE: The details...GETTING STARTEDHere's how to make your ANTICdataBASE disk:1) Format a fresh disk with DO)}S 2 or2.5. Be sure to WRITE DOS FILES tothis disk. This will be your ANTICdataBASE disk.2) ANTICDB.EXE is the name of )}theANTIC dataBASE program. Copy it toyour ANTIC dataBASE disk.ANTICDB.EXE is on the 'B' side ofthe Antic Monthly Disk.)}XXX Once copied, put your AnticMonthly Disk in a safe place3) Put your ANTIC dataBASE disk intoyour drive and rename )}ANTICDB.EXE toAUTORUN.SYS. To start the program, turn offyour Atari and place your ANTICdataBASE disk into drive #1. )} Removeall cartridges (if you have an XL oran XE, hold down the [OPTION] key,too) and turn on your Atari. ANTICdataBASE )}will start automatically.XXX---------------------------HINTS:1. Sorting is based on the ASCIIcodes of the letters and )}numbers inthe field. Here is an abbreviatedASCII table:(See your favorite computer manualfor a complete chart of ASCII)}values).XXX ASCIICharacter values----------------------- 0 - 9 48-57 A - Z 6)}5-90 a - z 97-122 Using this system, the word"ZODIAC" would appear before theword "aardvark", but after a w)}ordlike "07-APRIL".97-122 Using this system, the word"ZODIAC" would appear before theword "aardvark", but after a w(fff_`.Z`:r0 ~0~ 0-}`@||8x8888| ><\||| @||||~  0 0 ~~`0 0`<-}f (brie"blfcc>3a``py>|faaqqr|G`\L`~OG`~N@@@OA`gs}8$##socb$x< |qa>0fLxPLn& @@@`s>"ui[SGgg73kieec-}#>cGFx@`x>yscgO>>qavhlf'#aFay>~PcBcss{?>gCCff44fCSIik+Gf,8,Bogg#0sf 1gO@`0 ||6.}c6>8pp8?.}ww<~~~<x`x`~<~~<.}0~0 ~ <~~<8~888~8x88<x8888|.}8888>|8|$|8|~|8p<~~<.}~x|nf8x88888>|8|$|8|~|8p<~~<,&t=6tC&&D&E&+ 5B&&&© 1 V-L*B&˜ ' h4&0& 1&& *L*2}& & 1 ,& & 1 , , *`RUNTIME ERROR AT LINE &&Lk*+ +L&` '& &L2}&PROGRAM STOPPED&&Ńł ȱ`iL'HH **La/ k* r. 1 {+ - . - 1 - 2}' 1 {+ - 'hhL-ʥ`HHhh`8L'u`2 }Huh` Lk*L' Lk*L' ( - ( - ' k* -Lh* ( - 2 } ' + ( - ' {+ ' k* ' {+ 1 + - h*Lk* ( ' ' + ( - ' {+ ' k* ' {+ 1 +2 } - !( - h*Lh* ' ** -La/` ( k* -L- ( r. - {+ ' - ' +L' ( ' + 2 }' - {+ 'L'C&D&E& ) 1 1,E&eC&iD&`E&8LF& - -E&2 }`ʔȱȱȱ **Șe惠 惨06%*16&* L*HHhh``2}`Lh*ʱ`p B V8+* &)L&l Lw TO BOOT FOR D2}OS TO RERUN *ȱLk*&&8c5d58凅刐SJj)ee`фф2}iiL+8L+ LF&uuuLk*8` +Lk*iLk*豂Hȱh`p 2} +Lk*+H+ BHI+ [4h`8` +Lu, +#` +0 +0Lu, +0` +0L,L},2}`޵` `Ȕ`ʔ惥u`+ BHI2}DEH [4hLh*L+ލ1-+2- +- 0-0 0-Lk* -Lk*` 3-H -h 0 0-`L+8 0ƅ`2}66&L;-HH` B VhH)Kh)0 IJD-EB [4hLk*S:+Lk*TUVLh* -`++L+ L+ʱȱȱ2}`ȵȵLk*Lk* - - -ʥ - - - -LK3 - - r. r. **uȱuȱu P* *2}* -0 ,,LB3 ȱLk* @,LT.ʵ`eeLF&HHhh`ؐHH **2}La/ k*HH r. r.6 {+i i .i i -hh - - 'hh -`HH **% k*2}HH 1L. ** - LF& r.6 {+ - {+` ** -ޠ - 1 {+Lf/  h*Lk*H+ B Vh` ҵ2}  h*Lh*H+BHI [4+h+L1 0+KJB@D0EH+ [4h h*Lk* k* -@0Ɔ2}@0` -H`B [4h`w0w0L1Lk*Lk* +`H h*hL10HH eH2}HƆeiH -lꦆ 1Օ`0  L,`8`21(1-12- ,@ 1021L121@021`2}1 k* -1 1`+6-1L1801LF& + 1 r. 1 1 {++ 1 {+Ɔʭ1 +`ʕ`662}`HHH66666uuuhhhLk* +愵 ' + 'I 12} T280/66&&&`uuu` T2 a2Ј a2 h* +`@\32@2 .2}22222 LF&ȥΖ2i22\3`L*J32 J3`LF&2@82ƅJ3 ȱ2 }222` -3L2J3L2H\3 2h`1+ %  88L]3 h* h*2!}` h* h*`  h* h*` ]3$' ]3"0 ]30 3Lu, 3Lu, 3Lu,L1L1d4 1 - .c4d4g4g4`H2"}+? ++HIc4De4d4Ef4B [4Hg4h` VLF&g4` 3e4 1f4g4g4 1Lh4 3g4LF&e4f42#}, g4g4e4 1f48ee4f4g4 11L81  'Lk*hhLk* 4L2 4L*d42&&ȱ02$} W5L5 W5c5d5&& L25&&`i`C&&D&E&` *ȱ&&%2%}8e慱HȱhױE&iC&iD&Lk*+ BH Vh 1LP*+&BH [4hN 1 P*L 1MLP*+%B2&}NLMH [4hLh*)v***G*P*o*11{++2+u,M,_,,,,@,%,4,,**++++,,,-,V-----..-/W/y/2231c0x0{00y)2'}///0//333333Q0&='9(_(( )")O)n44h4045005B3e5s5&55 6 1======$ >.)>87>BP>Ln>V>`2(}>j>t>~>>>>?%?;?[?m?n?n???? $@@@\@(@2@<@F AP AZAdGAnMAxAAA2)}AAB"B&BRBBBBBB4CaCsC"C,C6C@(DJ7DTJD^XDh\DrxD||DDD3EQEgE}EE2*}EEEEFF3FgFF&F0F:FDGN5KHcKRK\KfKp&LzdLvLLLLVMxMMMMM9NUNgN kN N N$ N. O8 _OB2,} {OL OV O` Oj Pt P~ /P P P P P Q >Q CQ XQ |Q Q Q Q Q Q Q R( 6R2 TR< URF URP qRZ Rd Rn Rx 2-}R S :S fS S S S "T 8T CT T T T T T T T" ,U, FU6 rU@ UJ UT U^ Uh Ur V| VV VV fV V V 2.}W 8W NW OW pW W W W &X IX gX X& X0 X: YD YN %YX rYb Yl Yv Y Z 6Z }Z Z Z Z [ \[ [ [ [2/} +\ =\ n\ \ \ \* \4 ]> ]H ]R $]\ >]f q]p ]z ] ^ ^ 2^ J^ p^ ^ ^ ^ L_ o_ _ _ __W``$20}`.`8`B`LaV a`"aj@atNa~paaaaaaabbGbmbbbb bc2c(bc2oc<cFcPcZ21}cdcn dx'd?dydde6ePe|eeeef8fqffff" g,g6Dg@EgJcgTg^ghgrg|hiCihiii&j0nHnRn\nfop/oz`oooooo1pKpYpoppppp24}pq-q$Lq.q8qBqLrV4r`8rjOrtr~rrXrbss@JsJZsTs^srs|ss's'Ctt25}26}} "The ANTIC dataBASE "by " Carl M. Evans "Richard M.27} Leonard"Copyright 1987 Antic Magazine t*X=X=>X=X= X=X=4K:728}X=64+[= ?^=>$t*X=%?P+X=0X=9 ;?X=-[= [=X=0 >%t29}*X=m?+}WORKING FILE a=D+O}d d=@a=@Xg=@j=@m=@ p=@s=@v=@&y=@|=@=2:}@=@=@=&=&=&=&=@=@=@%=@%=@=@= B=% B==DB=B=%B=2;}=DB==ŠԠAp=D1:INDEXAs= A|=SearchA=SEARCHA @=p==2<}WC@=@$==(==(@%+=A+}"n ?=^=2=}=  *=@?p=D7y==DA?j=GAI *=y=D/Fy=D9Ax4=+P"=D *Od "2>}=D" t*X=X=  B+X=/X=:"B=X=0 +" ž2?}=" ŠҾ堠t*v=X=-A+P*=*=v=A2@}=@$=== C@%=B==B$g==  = F===(V? *m=y=DAy=A[=2A}m=D/=[=aCJ=sC=====( m=DC====(m=AB%==@Bt *"2B}پ t*X=YX=yC=(D@?$a=D7 a=D7V?=D=*v=D2C}E=JDhX= XDJ=xD4#a=D7n P**. Display All Records2D}. Search For A Record. Return To Main Menu= 4="=D" t*X=2E}X=E X=e QEn X=SX=s gEX=AX=a }E=*f*==@?a=D72F}?=GAIV?==ED=E=E===F=D;===F=D< F==t **v=DE93F2G}"=gFTotal Number Of Records: ==FϠӠ4 *n P**2H}=f*@?$a=D7 a=D7=4?==U=GAIV?===F=D;===F=D< ==2I}ED= Q=@%+ *[=XQ=+m=F01;m=F2^}12< |Q=m=F01;m=F31< Q=+y=A==F=="==Q==Q$2_}t*X=QP2 X=~RF * X= X=z X=_ X=` 6R X=-y===X=-CQ%+== =q2`}R=+--=Ry=y== FA+y=A+*Pn ?44"} àŠ.F2a}ile Directory .Add New Record.Change Drive .Modify Old Record.Create File .Print Record2b}s.Modify File .Display Records.Exit To DOS .Display Fields.Format Disk  .So2c}rt File" t*X=`X=m"TX=X= X=AX=L 8T =X=@ =6 LJ L LL L2d} LL&LlL|L LhL.. X=wJ" Which Disk To Format: t*X=Tn X=X=0 X=X2e}= T X==X=WC"Press To Format Disk Drive X=t*X=YX=yFUn =DC=2f}:C@?=D7n  *U=V""Current Drive Number : =Enter New2g} Drive Number: t*X=Un X=X=0 X=X= V^ X=X=O*=p==WCa==WC 2h}*n L$L%+}Data Bases On This Disk:=@?V=p=D2i}7Š  ?j=GAIj=ED=W j=F j= F 4*X= NW2j} +O*g= Bg=X Bg=g=DB }=Enter File Description = *d=y=DA[=d=D/[2k}=Wn ^==  *0 ^=="===  File Name ? = *=y=DAX==F5X=AX=Z IX2l} =D/@$X====F5X=/X=:X=@X=[ X& "==  *"2m}=D @%+ "$Number Of Fields In Record (2-8)? t*X=2X=8 Y: =X=0 = }2n}File Name : =D Description: d=D==@$"=D"Enter Parameters For Field =2o}- Of =" Record Size: ==="=D="Label: =  *m=y=DA[=m=D/[=2p}}Z"=D"Ԡ *Vg==  = m=DC=" Length (1-37): 2q}#="*[=["=D"Field Too Small *== b [=%\["=D"2r}Field Too Large *== b ==([===[==[ ==(@%= ["=D"2s} Record Size Must Be At least 10 *N =+\"=D" Record Size Must Not Exceed 128 *N 2t}= * *H *"%پ t*X=YX=y\n * ?$p=D7 p=D72u}j=D4#p=D7@?a=D74#a=D7n X=TX=]@@?p=D7 j=ED=$]+2v}}File Name : =D Description: d=D Record Size: =  ̠2w} =B$="= ="g==  = F="==(B%+j= Bj2x}= Bj=j=DBj==DCj= d=DC@$j=====(-Cj=~=~===(WC@%j='~g=DCj2y}=@B+=j=FAd=j= FA^[==D/^$=[=[=F 9^^%[=[= a=Aa=DCa==WC2z}a=:Ca=[==[=FCa=[=.DBBp==WC==@$==(j===F5==(j=~2{}=~=F,==(_ ======(@%g=j='~FA+}. For All Fil2|}es. For A Single File. Return To Main Menu= ="=D" t*X=X=2}}E X=e `n X=SX=s `BX=AX=a `L"=D=^===  *="@?2~}p=D7=?j=GAIj=ED=@a`= Na~=Dj==D/F9j=ED= pa`== *H *= 2}a*= X=EX=eX= a= X=EX=e a= X= a`=a*X= b2}4n  }== ^== *y==DA@?$p=D7= p=D7==Uj=GAI *2}=y=D/Fy=D9bH *"%ľ堠 "%þ 2}"%Ӿ󠠠 "%ž t*v=X=-Av=DD=v=Dd= 2}cv=DC=v=Dc= cdv=DS=v=Ds= cv=DE=v=De= cn (""Enter Field Num2}ber To Editt*X=X=0 X='dX=X== ?dn=X="!Enter New Label For Field Number =2}== = *y=D/d"=Dm=y=DAy=A== g== = Cg== =m=DC 2}*H *""پ a=Dt*X=YX=yPe"=D"2}@?j=DB==Vj=D4n ??$a=D7!a=D7V?p=D7[==M =@2}?j=GAIj==ED=f=[=[== j=DC[=[==4[=[= =[== =D/qf!p=D72}V@?p==WCp=D7[==@$j===== FAj=D-@%4#p=D7@?==2}Vj=D4""SAVED *V==Dg"=D"=D *+n ?X=T"=D"X=2}gŠԠ^ ˠ *4n T?P** ==|=SortA=SORTAf2}*""ľt*v=X=-Av=DD=Zh="2}#پ žt*=X==Yh=Ehd 2}= = ==@$= @%a=D/@$=a===F5@%O *=M j=@a=@2}=@=s=@@$a====-C@%=a=FD9a=F:9 i ERROR *V4}2}Organizing  a=D@?a=D7[==:?j=GAIj==ED=1 then GOTALINE=TRUE 1410 wend 1420 ' 1430 LINENUMBER=val( BLINE$ ) 1440 for CHAR=1 to len( BLINE$ ) 1450 } OK=TRUE 1460 CHARACTER$=mid$( BLINE$, CHAR, 1 ) 1470 if CHARACTER$=" " then OK=FALSE 1480 if OK then C}HECKSUM=CHECKSUM+asc( CHARACTER$+chr$( 0 )) 1490 next CHAR 1500 return 1510 ' 1520 '--------------------------------}--------------------------------- 1530 DECTOHEX: 1540 DECIMAL=abs( DECIMAL ) 1550 HI=int( DECIMAL/256 ): LO=( DECIMAL}